home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / SpaceEscape •••• / SpaceEscape ееее / card_5002.txt < prev    next >
Text File  |  1990-10-02  |  7KB  |  319 lines
  1. -- card: 5002 from stack: in
  2. -- bmap block id: 51835
  3. -- flags: 4000
  4. -- background id: 2669
  5. -- name: hallway
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global alarm
  9.   if alarm is "ring" then
  10.     repeat for 4
  11.       play "harpsichord" tempo 2000 c7 d e f g a b
  12.     end repeat
  13.     repeat while the sound is not "done"
  14.     end repeat
  15.     put "An ear-piercing alarm rings.  Guards swarm into the room, and"& " you are quickly disposed of.≈∏" into field "info"
  16.     global filter
  17.     put "yes" into filter
  18.     exit opencard
  19.   end if
  20.   global position
  21.   put "hallway" into position
  22.   if the visible of card field "doorhide" is false then
  23.     put "  You are in a long hallway lined with cells like your own."& "  To the south is your cell.  To the north is a door." into field "info"
  24.   end if
  25.   if the visible of card field "doorhide" is true then
  26.     put "  You are in a long hallway lined with cells like your own."& "  To the south is your cell.  To the north is an open doorway." into field "info"
  27.   end if
  28.   global doorhide
  29.   if doorhide is "closed" then hide card field "doorhide"
  30.   else show card field "doorhide"
  31.   pass opencard
  32. end opencard
  33.  
  34. on cont
  35.   global filter
  36.   if filter is "yes" then
  37.     go card "death"
  38.     put "" into filter
  39.   end if
  40. end cont
  41.  
  42.  
  43. -- part 1 (button)
  44. -- low flags: 00
  45. -- high flags: 0000
  46. -- rect: left=195 top=111 right=223 bottom=218
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: locked cell door of hallway
  55. ----- HyperTalk script -----
  56. on mouseUp
  57.   global filter
  58.   if filter is "yes" then
  59.     beep
  60.     exit mouseup
  61.   end if
  62.   global objectname
  63.   put "door" into objectname
  64.   visual effect zoom open
  65.   go to card "closed hallway door"
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part 2 (button)
  71. -- low flags: 00
  72. -- high flags: 0000
  73. -- rect: left=309 top=131 right=180 bottom=334
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: door of hallway
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   global filter
  85.   if filter is "yes" then
  86.     beep
  87.     exit mouseup
  88.   end if
  89.   global objectname
  90.   put "door" into objectname
  91.   visual effect zoom open
  92.   go to card "hallway button door"
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 4 (button)
  98. -- low flags: 00
  99. -- high flags: 0000
  100. -- rect: left=337 top=140 right=153 bottom=372
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: 
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   global filter
  112.   if filter is "yes" then
  113.     beep
  114.     exit mouseup
  115.   end if
  116.   global objectname
  117.   put "button" into objectname
  118.   visual effect zoom open
  119.   go to card "hallway alarm button"
  120. end mouseUp
  121.  
  122.  
  123.  
  124.  
  125.  
  126. -- part 5 (button)
  127. -- low flags: 00
  128. -- high flags: 0000
  129. -- rect: left=337 top=152 right=164 bottom=372
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: 
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   global filter
  141.   if filter is "yes" then
  142.     beep
  143.     exit mouseup
  144.   end if
  145.   global objectname
  146.   put "button" into objectname
  147.   visual effect zoom open
  148.   go to card "hallway open button"
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 7 (button)
  154. -- low flags: 00
  155. -- high flags: 0000
  156. -- rect: left=398 top=125 right=196 bottom=410
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: hallway open door
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   global filter
  168.   if filter is "yes" then
  169.     beep
  170.     exit mouseup
  171.   end if
  172.   global objectname
  173.   put "door" into objectname
  174.   global halldoor
  175.   if halldoor contains "openED" then
  176.     visual effect zoom open
  177.     go to card "hallway open door"
  178.     exit mouseup
  179.   end if
  180.   put "open" into halldoor
  181.   visual effect zoom open
  182.   go to card "closed hallway door"
  183. end mouseUp
  184.  
  185.  
  186.  
  187. -- part 8 (field)
  188. -- low flags: 81
  189. -- high flags: 0001
  190. -- rect: left=310 top=132 right=180 bottom=333
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 0 / 0
  193. -- text alignment: 0
  194. -- font id: 3
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: doorhide
  199. ----- HyperTalk script -----
  200. on mouseup
  201.   send "mouseup" to card button "door of hallway"
  202. end mouseup
  203.  
  204.  
  205. -- part 9 (button)
  206. -- low flags: 00
  207. -- high flags: 0000
  208. -- rect: left=233 top=124 right=196 bottom=245
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 0 / 0
  211. -- text alignment: 1
  212. -- font id: 0
  213. -- text size: 12
  214. -- style flags: 0
  215. -- line height: 16
  216. -- part name: locked cell door of hallway
  217. ----- HyperTalk script -----
  218. on mouseUp
  219.   global filter
  220.   if filter is "yes" then
  221.     beep
  222.     exit mouseup
  223.   end if
  224.   global objectname
  225.   put "door" into objectname
  226.   visual effect zoom open
  227.   go to card "closed hallway door"
  228. end mouseUp
  229.  
  230.  
  231.  
  232. -- part 10 (button)
  233. -- low flags: 00
  234. -- high flags: 0000
  235. -- rect: left=425 top=111 right=223 bottom=448
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 1
  239. -- font id: 0
  240. -- text size: 12
  241. -- style flags: 0
  242. -- line height: 16
  243. -- part name: locked cell door of hallway
  244. ----- HyperTalk script -----
  245. on mouseUp
  246.   global filter
  247.   if filter is "yes" then
  248.     beep
  249.     exit mouseup
  250.   end if
  251.   global objectname
  252.   put "door" into objectname
  253.   visual effect zoom open
  254.   go to card "closed hallway door"
  255. end mouseUp
  256.  
  257.  
  258.  
  259. -- part 11 (button)
  260. -- low flags: 00
  261. -- high flags: 0000
  262. -- rect: left=157 top=98 right=251 bottom=174
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 0 / 0
  265. -- text alignment: 1
  266. -- font id: 0
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: locked cell door of hallway
  271. ----- HyperTalk script -----
  272. on mouseUp
  273.   global filter
  274.   if filter is "yes" then
  275.     beep
  276.     exit mouseup
  277.   end if
  278.   global objectname
  279.   put "door" into objectname
  280.   visual effect zoom open
  281.   go to card "closed hallway door"
  282. end mouseUp
  283.  
  284.  
  285.  
  286. -- part 12 (button)
  287. -- low flags: 00
  288. -- high flags: 0000
  289. -- rect: left=469 top=98 right=251 bottom=486
  290. -- title width / last selected line: 0
  291. -- icon id / first selected line: 0 / 0
  292. -- text alignment: 1
  293. -- font id: 0
  294. -- text size: 12
  295. -- style flags: 0
  296. -- line height: 16
  297. -- part name: locked cell door of hallway
  298. ----- HyperTalk script -----
  299. on mouseUp
  300.   global filter
  301.   if filter is "yes" then
  302.     beep
  303.     exit mouseup
  304.   end if
  305.   global objectname
  306.   put "door" into objectname
  307.   visual effect zoom open
  308.   go to card "closed hallway door"
  309. end mouseUp
  310.  
  311.  
  312.  
  313. -- part contents for background part 18
  314. ----- text -----
  315. Hallway
  316.  
  317. -- part contents for background part 6
  318. ----- text -----
  319.   You are in a long hallway lined with cells like your own.  To the south is your cell.  To the north is an open doorway.